﻿Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub TextBoxB_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles tb_B.TextChanged

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim A, B As Single
        A = CSng(tb_A.Text)
        B = CSng(tb_B.text)
        Dim result As Single
        result = A + B
        lbl_result.Text = CStr(result)
    End Sub
End Class